home *** CD-ROM | disk | FTP | other *** search
- *****Listing 1*****
-
-
- cls ()
- {
- char *getenv(), *term, *cl;
-
- term = getenv ("TERM");
- if (!strcmp(term, "ansi"))
- cl = "\033[2J\033[H";
- else if (!strcmp(term, "wy50"))
- cl = "\033*";
- /* add other terminals ... */
- /* if all else fails, try a form feed */
- else
- cl = "\f";
- fputs (cl, stderr);
- }
-
-